home *** CD-ROM | disk | FTP | other *** search
/ Alles Voor Internet / Tout Pour Internet / alles voor internet.iso / MacInternet™ / Net / Utilities / Seer family 2.0 / docs / unloved files / qqaa_pdl_header.pdl < prev    next >
Encoding:
Text File  |  1987-08-29  |  413 b   |  26 lines  |  [TEXT/KAHL]
  1. (defun pdl_struct 
  2.     name:string 
  3.     size:integer 
  4.     print_how:{dec|hex|cnt_str|no_print|ip_addr}
  5.     [ind_size:":size_from"]
  6.     [stor_in:":value_to"]
  7.     [value_from:":value_from"]
  8.     [on_count:":counter";the_count:var]
  9. )
  10. (defun pdl_name
  11.     store_in:var
  12.     <<name_or_def:string
  13.       val:int
  14.       [on_scope:":scope"]
  15.       [do_reject:":reject"]
  16.     >>
  17. )
  18.  
  19. (defun funcal
  20.     var_or_name
  21. )
  22.  
  23. (defun thats_all)
  24.  
  25. (defun setq the_var:var the_exp:exp)
  26.